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INVENTOR: Peter V. Boesen, M.D. 

Thomas J. Mann 

TITLE: METHOD AND MEDIUM FOR COMPUTER READABLE KEYBOARD 

DISPLAY INCAPABLE OF USER TERMINATION 

BACKGROUND OF THE INVENTION 

FIELD OF THE INVENTION 

The present invention relates generally to a method and 
medium for inputting data, and more particularly, to a 
keyboard of constant size and shape present on the screen of 
a touch- screen style computer whenever user input may be 
desired. The keyboard display may be used by any number of 
computer software programs, including any known operating 
system in which a touch- sensitive computer display may be 
incorporated. Additionally, the present invention may be 
used in conjunction with any individual computer, network 
and/or Internet based system. 

PROBLEMS IN THE ART 

Computers with touch- screen displays, allowing a user to 
simply press on a desired location to obtain a desired input, 
have been around for some time. For example, a pen-based 
computer, such as the Fujitsu Model Point 1600, allows a user 
to press on the screen using the attached pen or other styli, 
and thereby provide user input . The use of such a pen-based 
computer allows a user to enter all necessary data without 
the need for an external keyboard, mouse or other input 
device. The use of an on-screen keyboard in such a computer 
allows a user to input data without the need for additional 
handwriting recognition software. Handwriting recognition 
software, while constantly improving, is often inaccurate and 
cumbersome. Further, such handwriting recognition software 
is often processor intensive. 
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Currently, on-screen keyboards allow a user to maximize, 
minimize, or simply remove the keyboard on the display. 
Further, the shape and size of the keyboard may be altered. 
Often, such alterations or terminations are accidental and 
returning a keyboard to a useable size and shape wastes 
valuable time. In a medical setting, for example, it is 
highly undesirable to have a care provider attempting to 
recover from an accidental keyboard alteration when the care 
provider should be attending to and recording information on 
patients. It is therefore desirable to provide an on-screen 
keyboard which is incapable of alteration or termination by a 
user . 

More and more applications are being developed for pen- 
based or touch-screen based computers. These applications 
will typically require a user to input data at a specific 
location on the screen. An on-screen keyboard may be 
necessary to provide the desired input. However, current on- 
screen keyboards may be moved by the user and therefore 
placed in undesirable locations which may block necessary 
text input fields or instructions. Further, current on- 
screen keyboard include a task bar having minimizing and 
maximizing buttons which allow a user to enlarge or reduce 
the window in which the keyboard appears. Often, such 
keyboards also include a close button which allows the user 
to terminate the keyboard. Upon pressing these buttons, many 
computer novices have difficulty launching another instance 
of the keyboard or recovering the keyboard to a usable state . 
It is therefore desirable to have an on-screen keyboard which 
is capable of permanent placement on a computer display. 

Computer programs may require input only randomly. Many 
ask for user input and then present the results. As it would 
clearly hamper the presentation of results, data or other 
information to have an on-screen keyboard present at all 
times, it is desirable to provide an on-screen keyboard which 
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may be selectively called up as a subroutine or subprogram by 
a variety of programming . 

There is therefore a need to have an on-screen keyboard 
which solves these and other problems in the art . 

FEATURES OF THE INVENTION 

A general feature of the present invention is the 
provision of an input area which overcomes the problems found 
in the prior art . 

A further feature of the present invention is the 
provision of an input area which may be used in conjunction 
with touch- sensitive displays. 

Another feature of the present invention is the 
provision of an input area which is immutable. 

A further feature of the present invention is the 
provision of an input area which may not be moved. 

A still further feature of the present invention is the 
provision of an input area which allows a user to input data 
without the need for handwriting recognition software. 

An additional feature of the present invention is the 
provision of an input area which may not be maximized. 

Another feature of the present invention is the 
provision of an input area which may not be minimized. 

A still further feature of the present invention is the 
provision of an input area which may not be removed by the 
user . 

A further feature of the present invention is the 
provision of an input area which contains a keyboard. 

Another feature of the present invention is the 
provision of an input area which may be selectively used by a 
computer program. 

A still further feature of the present invention is the 
provision of an input area which provides an easy to use and 
reliable method of inputting information into a computer 



3 



system regardless of the level of computer skill possessed by 
the user. 

These, as well as other features and advantages of the 
present invention will become apparent from the following 
specification and claims. 

SUMMARY OF THE INVENTION 

The present invention generally comprises an immutable 
keyboard display. In a preferred embodiment, the present 
invention includes a software application that provides a 
keyboard display which may not be minimized, maximized, 
closed, or deleted. Further, the keyboard display allows a 
user to input information as desired via a touch-screen based 
or pen based computer. 

BRIEF DESCRIPTION OF THE DRAWINGS 

Figure 1 is a pictorial representation of a display of a 
pen-based computer incorporating the keyboard display of the 
present invention. 

Figure 2 is a close-up view of the keyboard display of 
the present invention. 

DETAILED DESCRIPTION OF THE EMBODIMENT 

The present invention will be described as it applies to 
its preferred embodiment. It is not intended that the 
present invention be limited to the described embodiment. It 
is intended that the invention cover all modifications and 
alternatives which may be included within the spirit and 
scope of the invention. 

As shown in Figure 1, a pen-based computer 10, such as 
the Fujitsu Model Point 1600, includes a touch-sensitive 
display 12 . On the display 12 is shown the user interface 
for a software application 14 which may be running from or 
accessed by the computer 10 . It is to be understood that the 
computer 10 could be a stand-alone computer or a part of any 
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network or Internet based system. However, the computer 10 
preferably provides a 32 bit environment. Computer 10 may 
access any type of software application through any number of 
known drives or via a network or web server. Once accessed, 
the user will see the application as it appears on the 
display 12 of the computer 10. The application may ask for 
user input at various locations through the use of text boxes 
16 or other fields. The user may provide the desired input 
by holding the pen 18 or any other known input device which 
may include the user's finger, and pressing on the display 12 
of the computer 10 so as to strike a desired key 22 of the 
keyboard 2 0 . 

The keyboard 2 0 is preferably an image map or active map 
incorporated at a set location on the display 12 . The 
keyboard 2 0 may not be moved, maximized, or minimized. 
Therefore, the keyboard 2 0 provides the user with a constant 
input area to which the user may become accustomed and 
becomes an integral component . 

The keyboard 20, as shown in Figure 2, contains a 
plurality of keys 22. The keys 22 may include all those 
currently found on any standard typewriter or computer 
keyboard, or may be application-specific. For instance, if 
the software in which user input is desired is primarily 
financial software, the keyboard 20 may include only numbers. 
Further, if the software requires the user to input names or 
words, the keyboard 20 may include one key 22 for every 
letter of the alphabet and any necessary punctuation or 
function keys. Further, the keys 2 2 may be programmed to 
represent any symbol or accentuated letter to allow the 
keyboard to be used in applications in which input may be 
required in various languages . 

The keyboard 2 0 is preferably the result of a software 
application written in Visual Basic or C++, though various 
software programming languages may be used. The keyboard has 
all task bars removed and may not be minimized, maximized, 

5 



deleted, closed or resized and is therefore immutable. 
Preferably, the keyboard application is a subroutine or 
subprogram which is made available for use by external 
software applications. The keyboard application is 
preferably part of the operating system running on the 
computer 10. Incorporating the keyboard application into the 
computer 10 allows the keyboard application to be available 
to any external software application capable of running on 
the computer 10. The keyboard application may include a 
dynamic link library (dll) application. The dll application 
allows the external software to selectively use the keyboard 
and either have the keyboard in or out. This allows the 
software to use the entirety of the screen when necessary for 
displaying information or results. 

An example of the keyboard application programming as it 
would appear in Visual Basic is: 
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Commandl (17) 
Commandl ( 18 ) 
Commandl (19) 
Commandl (2 0) 
Commandl (21) 
Commandl (22) 
Commandl (23) 
Commandl (24) 
Commandl (2 5) 
Commandl (2 6) 
Commandl (2 7) 
Commandl (28) 
Commandl (29) 
Commandl ( 3 0 ; 
Commandl (31] 
Commandl (32; 
Commandl (44] 
Commandl (34] 
Commandl (35] 
Commandl {3 6] 
Commandl (37! 
Commandl (3 8; 
Commandl (3 9; 
Commandl (4 0; 
Commandl (41 
Commandl (42 
Commandl (43 
Commandl (4 8 
Commandl (4 9 
Commandl (5 0 
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cmdTab. Caption = "Tab>" 



End Sub 

Public Sub Caps_On() 



Commandl 


(0) . 


Caption = 


'A" 


Commandl 


(1) • 


Caption = 


-B" 


Commandl 


(2) . 


Caption = 


"C" 


Commandl 


(3) . 


Caption = 


'D" 


Commandl 


(4) . 


Caption = 


, E n 


Commandl 


(5) . 


Caption = 


i F " 


Commandl 


(6) 


Caption = 


' G" 


Commandl 


(7) 


Caption = 


■H" 


Commandl 


(8) 


Caption = 


"I" 


Commandl 


(9) 


Caption = 


'J" 


Commandl 


(10) 


.Caption = 


"K 


Commandl 


(11) 


.Caption = 


" L 


Commandl 


(12) 


.Caption = 


11 M 


Commandl 


(13) 


.Caption = 


"N 



Commandl (14) 
Command 1 ( 15 ) 
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Commandl (20) 
Commandl (21) 
Commandl (22) 
Commandl (2 3) 
Commandl (24) 
Commandl (25) 



Caption = "O" 

Caption = "P" 

.Caption = "Q" 

.Caption = "R" 

.Caption = "S" 

.Caption = "T" 

.Caption = "U" 

.Caption = "V" 

.Caption = "W" 

.Caption = "X" 

.Caption = "Y" 

.Caption = "Z" 



End Sub 

Public Sub Caps_0FF() 
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"h" 
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Commandl 


(16) 


.Caption = 
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Commandl (24) 
Commandl (2 5) 



Caption = 


1! gl 


Caption = 


"f 


Caption = 


"u' 


Caption = 


" v' 


Caption = 


"w' 


Caption = 


"x 1 


Caption = 


"y' 


Caption = 


ii z i 



End Sub 

Public Sub Set_Caps_Lock ( ) 

If cmdCapsLock.Tag = "OFF" Then 

cmdCapsLock. Caption = "Caps On" 
cmdCapsLock.Tag = "ON" 
Caps_On 

Else 

cmdCapsLock. Caption = "Caps Off" 
cmdCapsLock.Tag = "OFF" 
Caps_OFF 
End If 
strKeys = " " 

strKeys = strKeys & " { CAPSLOCK} 11 
SendVKeys (strKeys) 

End Sub 

Public Sub Key_Layoutl ( ) 

Dim intTemp, intRightBorder As Integer 
Dim IngPcnt As Double 
Dim dblFontSize As Double 
Dim IngFormWidth As Long 

Dim intRowlTop, intRow2Top, intRow3Top, intRow4Top, 
intRow5Top, intRow6Top, intRow7Top As Integer 
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Dim intFontSize, intHeight, intLetterWidth, 
intFunctionWidth As Integer 

IngFormWidth = f rmKeys . Width 
If f rmKeys .Borders tyle > 0 Then 
IngPcnt = IngFormWidth / 7135 
Else 

IngPcnt = IngFormWidth / 6975 
End If 

'IngPcnt = IngFormWidth / 6975 
'pKB. Height = 2790 * IngPcnt 
'pKB. Height = (3390 * IngPcnt) 
intHeight = 33 0 * IngPcnt 
intLetterWidth = 350 * IngPcnt 
intFunctionWidth =470 * IngPcnt 
intTemp = intFunctionWidth / 24 
intFunctionWidth = (intTemp +1) * 24 
intFontSize = 9 * IngPcnt 
dblFontSize = 8 * IngPcnt 

intRowlTop = 60 * IngPcnt 
intRow2Top = 54 0 * IngPcnt 
intRow3Top = 96 0 * IngPcnt 
intRow4Top = 13 8 0 * IngPcnt 
intRow5Top = 1860 * IngPcnt 
intRow6Top = 2340 * IngPcnt 
intRow7Top = 2 82 0 * IngPcnt 

'Set the form height to porportion with form width 
If f rmKeys .BorderStyle > 0 Then 

f rmKeys .Height = intRow6Top + intHeight + 465 
Else 

f rmKeys .Height = intRow6Top + intHeight + 60 
End If 
1 Row 1 
'Escape Key 

cmdEscape . Font . Size = dblFontSize 
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cmdEscape . Top = intRowlTop 
cmdEscape . Lef t = 60 * lngPcnt 
cmdEscape .Width = 67 0 * lngPcnt 
cmdEscape . Height = intHeight 
•Fl Key 

Commandl (48) . Font . Size = intFontSize 
Commandl (48) . Top = intRowlTop 
Commandl (48) .Left = 805 * lngPcnt 
Commandl (48) .Width = intFunctionWidth 
Commandl (48 ). Height = intHeight 
•F2 Key 

Commandl (49) . Font . Size = intFontSize 
Commandl (49) .Top = intRowlTop 
Commandl (49) .Lef t = Commandl (48) . Lef t 
Commandl (48) .Width '1285 * lngPcnt 

Commandl (4 9) .Width = intFunctionWidth 
Commandl (4 9) .Height = intHeight 
' F3 Key 

Commandl (50) .Font . Size = intFontSize 
Commandl (50) .Top = intRowlTop 
Commandl (50) .Left = Commandl (49 ). Lef t 
Commandl (49) .Width '1765 * lngPcnt 

Commandl (50) .Width = intFunctionWidth 
Commandl (50) .Height = intHeight 
'F4 Key 

Commandl (51) . Font . Size = intFontSize 
Commandl ( 5 1 ). Top = intRowlTop 
Commandl (51) .Left = Commandl (50) . Lef t 
Commandl (50) .Width '2245 * lngPcnt 

Commandl (51) .Width = intFunctionWidth 
Commandl (51) .Height = intHeight 
'F5 Key 

Commandl (52 ). Font . Size = intFontSize 
Commandl (52 ). Top = intRowlTop 
Commandl (52) .Lef t = 2905 * lngPcnt 
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Commandl (52) . 

Commandl (52) . 

' F6 Key 

Commandl ( 53 ) . 

Commandl (53) . 

Commandl (53 ) . 
Commandl (52) .Width 

Commandl (53) . 

Commandl (53) . 

1 F7 Key 

Commandl (54) . 

Commandl (54) . 

Commandl (54) . 
Commandl (53) .Width 

Commandl (54) . 

Commandl (54) , 

'F8 Key 

Commandl (55) . 

Commandl (55) . 

Commandl (55) . 
Commandl (54) .Width 

Commandl (55 ) . 

Commandl (55) , 
'F9 Key 

Commandl (56) 

Commandl (56) 

Commandl (56) 

Commandl (56) 

Commandl (56) 
'F10 Key 

Commandl (57) 

Commandl (57) 

Commandl (57) 
Commandl (56) .Width 

Commandl (57) 



Width = intFunct ionWidth 
Height = intHeight 

Font. Size = intFontSize 

Top = intRowlTop 

Left = Commandl (52) .Left + 

'33 85 * IngPcnt 
Width = intFunct ionWidth 
Height = intHeight 

.Font. Size = intFontSize 

.Top = intRowlTop 

.Left = Commandl (53) .Left + 

'3865 * IngPcnt 
.Width = intFunct ionWidth 
.Height = intHeight 

.Font. Size = intFontSize 

. Top = intRowlTop 

.Left = Commandl (54) .Left + 

'4345 * IngPcnt 
.Width = intFunct ionWidth 
.Height = intHeight 

.Font. Size = intFontSize 
. Top = intRowlTop 
.Left = 5005 * IngPcnt 
.Width = intFunct ionWidth 
.Height = intHeight 

.Font. Size = dblFontSize 

.Top = intRowlTop 

.Left = Commandl (56) .Left + 

'5485 * IngPcnt 
.Width = intFunct ionWidth 
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Commandl (57) .Height = intHeight 
'Fll Key 

Commandl (58) . Font . Size = dblFontSize 
Commandl (58) .Top = intRowlTop 
Commandl (58) .Left = Commandl ( 57) . Left 
Commandl (57) .Width '5965 * lngPcnt 

Commandl (58) .Width = intFunctionWidth 
Commandl (58) .Height = intHeight 
•F12 Key 

Commandl (59) . Font . Size = dblFontSize 
Commandl (5 9) . Top = intRowlTop 
Commandl (59) .Left = Commandl (58) . Left 
Commandl (58) .Width '6445 * lngPcnt 

Commandl (59) .Width = intFunctionWidth 
Commandl (59) .Height = intHeight 



intRightBorder = Commandl (59) . Left + Commandl ( 59) . Width 
1 Row 2 
' ' Key 

Commandl (45) . Font . Size = intFontSize 
Commandl ( 4 5 ). Top = intRow2Top 
Commandl (45) .Left = 60 * lngPcnt 
Commandl (45) .Width = intLetterWidth 
Commandl (45) .Height = intHeight 



' 1 Key 

Commandl (27) .Font . Size = intFontSize 
Commandl (27) .Top = intRow2Top 
Commandl (27) .Left = 480 * lngPcnt 
Commandl (27) .Width = intLetterWidth 
Commandl (27) .Height = intHeight 



■2 Key 

Commandl (28) . Font . Size = intFontSize 
Commandl (2 8) . Top = intRow2Top 
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Command 1 (2 8) 
Command 1 (2 8) 
Commandl (2 8) 



.Left = 900 * IngPcnt 
.Width = intLetterWidth 
.Height = intHeight 



'3 Key 

Commandl (2 9) 
Commandl (29) 
Commandl (29) 
Commandl (2 9) 
Commandl (2 9) 

■4 Key 

Commandl (3 0) 
Commandl (30) 
Commandl (3 0) 
Commandl (3 0) 
Commandl (30) 

' 5 Key 

Commandl (31) 
Commandl (31) 
Commandl (31) 
Commandl (31) 
Commandl (31) 

' 6 Key 

Commandl (32) 
Commandl (32) 
Commandl (32) 
Commandl (32) 
Commandl (32) 

' & Key 

Commandl (33) 
Commandl (33) 



Font. Size = intFontSize 
Top = intRow2Top 
Left = 1320 * IngPcnt 
Width = intLetterWidth 
Height = intHeight 

Font. Size = intFontSize 
.Top = intRow2Top 
.Left = 174 0 * IngPcnt 
.Width = intLetterWidth 
.Height = intHeight 

.Font. Size = intFontSize 
.Top = intRow2Top 
.Left = 2160 * IngPcnt 
.Width = intLetterWidth 
.Height = intHeight 

.Font. Size = intFontSize 
.Top = intRow2Top 
.Left = 2580 * IngPcnt 
.Width = intLetterWidth 
.Height = intHeight 

.Font. Size = intFontSize 
.Top = intRow2Top 
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Commandl (33) 
Coramandl (33 ) 
Commandl (33 ) 



.Left = 3 00 0 * IngPcnt 
.Width = intLetterWidth 
.Height = intHeight 



'7 Key 

Commandl (44 ) 
Commandl (44) 
Commandl (44) 
Commandl (44 ) 
Commandl (44) 

■8 Key 

Commandl (34) 
Commandl (34) 
Commandl (34) 
Commandl (34) 
Commandl (34) 

1 9 Key 

Commandl (35 ) 
Commandl (35) 
Commandl (35 ) 
Commandl (35) 
Commandl (3 5) 

' 0 Key 

Commandl (2 6) 
Commandl (26) 
Commandl (26) 
Commandl (26) 
Commandl (26) 

■ - Key 

Commandl (4 6) 
Commandl (4 6) 



Font. Size = intFontSize 
Top = intRow2Top 
Left = 3000 * IngPcnt 
Width = intLetterWidth 
Height = intHeight 

Font. Size = intFontSize 

Top = intRow2Top 
.Left = 342 0 * IngPcnt 
.Width = intLetterWidth 
.Height = intHeight 

.Font. Size = intFontSize 
.Top = intRow2Top 
.Left = 3840 * IngPcnt 
.Width = intLetterWidth 
.Height = intHeight 

.Font. Size = intFontSize 
.Top = intRow2Top 
.Left = 4260 * IngPcnt 
.Width = intLetterWidth 
.Height = intHeight 

.Font. Size = intFontSize 
.Top = intRow2Top 
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Commandl (4 6) 
Commandl (4 6) 
Commandl (4 6) 



.Left = 4680 * IngPcnt 
.Width = intLetterWidth 
.Height = intHeight 



' = Key 

Commandl (47) . Font . Size = intFontSize 
Commandl (47) . Top = intRow2Top 
Commandl (47) .Left = 5100 * IngPcnt 
Commandl (47) .Width = intLetterWidth 
Commandl (47) .Height = intHeight 



' Backspace Key 

cmdBackspace . Font . Size = dblFontSize 
cmdBackspace . Top = intRow2Top 
cmdBackspace . Left = 552 0 * IngPcnt 

cmdBackspace .Width = intRightBorder - cmdBackspace . Left 
cmdBackspace .Height = intHeight 



' Row 3 
•TAB Key 

cmdTab . Font . Size = dblFontSize 
cmdTab . Top = intRow3Top 
cmdTab. Left = 60 * IngPcnt 
cmdTab. Width = 65 0 * IngPcnt 
cmdTab . Height = intHeight 



•Q Key 

Commandl (16) . Font . Size = intFontSize 
Commandl ( 1 6 ). Top = intRow3Top 
Commandl (16) .Left = 780 * IngPcnt 
Commandl (16) .Width = intLetterWidth 
Commandl (16) .Height = intHeight 



•W Key 

Commandl (22 ). Font . Size = intFontSize 
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Commandl (22 ). Top = intRow3Top 
Commandl (22) .Left = 1200 * IngPcnt 
Commandl (22) .Width = intLetterWidth 
Commandl (22) .Height = intHeight 

•E Key 

Commandl (4) . Font . Size = intFontSize 
Commandl (4) . Top = intRow3Top 
Commandl (4) .Left = 1620 * IngPcnt 
Commandl (4) .Width = intLetterWidth 
Commandl (4) .Height = intHeight 



.Font. Size = intFontSize 
.Top = intRow3Top 
.Left = 2040 * IngPcnt 
.Width = intLetterWidth 
.Height = intHeight 

.Font. Size = intFontSize 
.Top = intRow3Top 
.Left - 2460 * IngPcnt 
.Width = intLetterWidth 
.Height = intHeight 

.Font. Size = intFontSize 
.Top = intRow3Top 
.Left = 288 0 * IngPcnt 
.Width = intLetterWidth 
.Height = intHeight 



•R Key 

Commandl (17) 
Commandl (17) 
Commandl (17) 
Commandl (17) 
Commandl (17) 

' T Key 

Commandl (19) 
Commandl (19) 
Commandl (19) 
Commandl (19) 
Commandl (19) 

•Y Key 

Commandl (24) 
Commandl (24) 
Commandl (24) 
Commandl (24) 
Commandl (24) 

■U Key 

Commandl (20) 



. Font . Size 



= intFontSize 



Commandl (20) .Top = intRow3Top 
Commandl (2 0) .Left = 3300 * IngPcnt 
Commandl (20) .Width = intLetterWidth 
Commandl (20) .Height = intHeight 



' I Key 

Commandl (8) . Font . Size = intFontSize 
Commandl (8) .Top = intRow3Top 
Commandl (8) .Left = 3720 * IngPcnt 
Commandl (8) .Width = intLetterWidth 
Commandl (8) .Height = intHeight 



•O Key 

Commandl (14) .Font .Size = intFontSize 
Commandl (14) .Top = intRow3Top 
Commandl (14) .Left = 4140 * IngPcnt 
Commandl (14) .Width = intLetterWidth 
Commandl (14) .Height = intHeight 



' P Key 

Commandl (15) . Font . Size = intFontSize 
Commandl ( 1 5 ). Top = intRow3Top 
Commandl (15) .Left = 4560 * IngPcnt 
Commandl (15) .Width = intLetterWidth 
Commandl (15) .Height = intHeight 



' [ Key 

Commandl (41) . Font . Size = intFontSize 
Commandl (41) .Top = intRow3Top 
Commandl (41) .Left = 4980 * IngPcnt 
Commandl (41) .Width = intLetterWidth 
Commandl (41) .Height = intHeight 



'] Key 

Commandl (42) 



.Font. Size = intFontSize 
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Commandl (42) .Top = intRow3Top 
Commandl (42) .Left = 5400 * IngPcnt 
Commandl (42) .Width = intLetterWidth 
Commandl (42) .Height = intHeight 



■\ Key 

Commandl (43) .Font .Size = intFontSize 
Commandl (43) .Top = intRow3Top 
Commandl (43) .Left = 5820 * IngPcnt 
Commandl (43) .Width = intLetterWidth 
Commandl (43) .Height = intHeight 



' Delete 

cmdDelete . Font . Size = dblFontSize 
cmdDelete . Top = intRow3Top 
cmdDelete .Left = 624 0 * IngPcnt 

cmdDelete .Width = intRightBorder - cmdDelete . Left 
cmdDelete .Height = intHeight 



'Row 4 

' Caps Lock Key 

cmdCapsLock. Font . Size = dblFontSize 
cmdCapsLock. Top = intRow4Top 
cmdCapsLock. Lef t = 60 * IngPcnt 
cmdCapsLock. Width = 1070 * IngPcnt 
cmdCapsLock. Height = intHeight 

' A Key 

Commandl (0) . Font . Size = intFontSize 
Commandl ( 0 ). Top = intRow4Top 
Commandl (0) .Lef t = 1200 * IngPcnt 
Commandl (0) .Width = intLetterWidth 
Commandl (0) .Height = intHeight 
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•S Key 

Commandl (18) . Font . Size = intFontSize 
Commandl (18) . Top = intRow4Top 
Commandl (18) .Left = 1620 * IngPcnt 
Commandl (18) .Width = intLetterWidth 
Commandl (18) .Height = intHeight 



■D Key 

Commandl (3) . Font . Size = intFontSize 
Commandl (3) .Top = intRow4Top 
Commandl (3) .Left = 2040 * IngPcnt 
Commandl (3) .Width = intLetterWidth 
Commandl (3) .Height = intHeight 



•F Key 

Commandl (5) . Font . Size = intFontSize 
Commandl ( 5 ). Top = intRow4Top 
Commandl (5) .Left = 2460 * IngPcnt 
Commandl (5) .Width = intLetterWidth 
Commandl (5) .Height = intHeight 



1 G Key 

Commandl (6) . Font . Size = intFontSize 
Commandl ( 6 ). Top = intRow4Top 
Commandl (6) .Left = 2880 * IngPcnt 
Commandl (6) .Width = intLetterWidth 
Commandl (6) .Height = intHeight 



•H Key 

Commandl (7) .Font .Size = intFontSize 
Commandl ( 7 ). Top = intRow4Top 
Commandl (7) .Left = 3300 * IngPcnt 
Commandl (7) .Width = intLetterWidth 
Commandl (7) .Height = intHeight 
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' J Key 

Commandl (9) . Font . Size = intFontSize 
Commandl (9) . Top = intRow4Top 
Commandl (9) .Left = 3720 * IngPcnt 
Commandl (9) .Width = intLetterWidth 
Commandl (9) .Height = intHeight 



' K Key 

Commandl (10) . Font . Size = intFontSize 
Commandl (10) .Top = intRow4Top 
Commandl (10) .Left = 4140 * IngPcnt 
Commandl (10) .Width = intLetterWidth 
Commandl (10) .Height = intHeight 



•L Key 

Commandl (11) .Font .Size = intFontSize 
Commandl (11) .Top = intRow4Top 
Commandl (11) .Left = 4560 * IngPcnt 
Commandl (11) .Width = intLetterWidth 
Commandl (11) .Height = intHeight 



' ; Key 

Commandl (39) . Font . Size = intFontSize 
Commandl ( 3 9 ). Top = intRow4Top 
Commandl (39) .Left = 4980 * IngPcnt 
Commandl (3 9) .Width = intLetterWidth 
Commandl (39) .Height = intHeight 



' " Key 

Commandl (40) . Font . Size = intFontSize 
Commandl (40) . Top = intRow4Top 
Commandl (40) .Left = 5400 * IngPcnt 
Commandl (40) .Width = intLetterWidth 
Commandl (40) .Height = intHeight 



26 



' Enter 

cmdEnter . Font .Size = dblFontSize 
cmdEnter . Top = intRow4Top 
cmdEnter. Left = 582 0 * IngPcnt 

cmdEnter .Width = intRightBorder - cmdEnter . Left 
cmdEnter .Height = intHeight 



'Row 5 

■Left Shift Key 

cmdLeftShift .Font .Size = dblFontSize 
cmdLef tShif t .Top = intRow5Top 
cmdLeftShift .Left = 60 * IngPcnt 
cmdLef tShift .Width = 1293 * IngPcnt 
cmdLef tShift .Height = intHeight 



■Z Key 

Commandl (2 5) . Font . Size = intFontSize 
Commandl (25) .Top = intRow5Top 
Commandl (25) .Left = 1423 * IngPcnt 
Commandl (25) .Width = intLetterWidth 
Commandl (2 5) .Height = intHeight 



■X Key 

Commandl (23 ). Font . Size = intFontSize 
Commandl (23) . Top = intRow5Top 
Commandl (23) .Left = 1843 * IngPcnt 
Commandl (23) .Width = intLetterWidth 
Commandl (23) .Height = intHeight 



'C Key 

Commandl (2) . Font . Size = intFontSize 
Commandl (2) .Top = intRow5Top 
Commandl (2) .Left = 2263 * IngPcnt 
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Commandl (2) . Width = intLetterWidth 
Commandl (2 ). Height = intHeight 



'V Key 

Commandl (21) . Font . Size = intFontSize 
Commandl ( 2 1 ). Top = intRow5Top 
Commandl (21) .Left = 2683 * IngPcnt 
Commandl (21) .Width = intLetterWidth 
Commandl (21) .Height = intHeight 



"B Key 

Commandl (1) . Font . Size = intFontSize 
Commandl ( 1 ). Top = intRowSTop 
Commandl (1) .Left = 3103 * IngPcnt 
Commandl (1) .Width = intLetterWidth 
Commandl (1) .Height = intHeight 



■N Key 

Commandl (13) .Font .Size = intFontSize 
Commandl (13) .Top = intRow5Top 
Commandl (13) .Left = 3523 * IngPcnt 
Commandl (13) .Width = intLetterWidth 
Commandl (13) .Height = intHeight 



'M Key 

Commandl (12) .Font .Size = intFontSize 
Commandl (12) .Top = intRow5Top 
Commandl (12) .Left = 3943 * IngPcnt 
Commandl (12) .Width = intLetterWidth 
Commandl (12) .Height = intHeight 



' , Key 

Commandl (36) . Font . Size = intFontSize 
Commandl ( 3 6 ). Top = intRow5Top 
Commandl (36) .Left = 4363 * IngPcnt 
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Commandl (36) .Width = intLetterWidth 
Commandl (36) .Height = intHeight 



' . Key 

Commandl (37) . Font . Size = intFontSize 
Commandl (37) .Top = intRow5Top 
Commandl (37) .Left = 4783 * IngPcnt 
Commandl (37) .Width = intLetterWidth 
Commandl (37) .Height = intHeight 



'/ Key 

Commandl (38) . Font . Size = intFontSize 
Commandl (38) .Top = intRow5Top 
Commandl (38) .Left = 5203 * IngPcnt 
Commandl (38) .Width - intLetterWidth 
Commandl (3 8) .Height = intHeight 



'Right Shift Key 

cmdRightShift . Font . Size = dblFontSize 
cmdRightShif t . Top = intRow5Top 
cmdRightShift .Left = 5623 * IngPcnt 
cmdRightShif t .Width = intRightBorder - 
cmdRightShift .Left 

cmdRightShif t .Height = intHeight 



' Row 6 

'Left Ctrl Key 

cmdCntrl . Font . Size = dblFontSize 
cmdCntrl.Top = intRow6Top 
cmdCntrl .Left = 60 * IngPcnt 
cmdCntrl .Width = 795 * IngPcnt 
cmdCntrl .Height = intHeight 



'Left Alt Key 

cmdAlt . Font . Size = dblFontSize 
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cmdAlt . Top = intRow6Top 
cmdAlt.Left = 92 5 * IngPcnt 
cmdAlt .Width = 73 5 * IngPcnt 
cmdAlt . Height = intHeight 

' Move Left Key 

cmdMoveLef t . Font . Size = intFontSize 
cmdMoveLef t . Top = intRowSTop 
cmdMoveLef t .Left = 1730 * IngPcnt 
cmdMoveLef t .Width = 465 * IngPcnt 
cmdMoveLef t . Height = intHeight 

' Space Bar Key 

cmdSpaceBar . Font . Size = intFontSize 
cmdSpaceBar .Top = intRow6Top 
cmdSpaceBar .Left = 22 65 * IngPcnt 
cmdSpaceBar .Width = 2445 * IngPcnt 
cmdSpaceBar .Height = intHeight 

'Move Right Key 

cmdMoveRight . Font . Size = intFontSize 
cmdMoveRight . Top = intRow6Top 
cmdMoveRight .Left = 4780 * IngPcnt 
cmdMoveRight .Width = 465 * IngPcnt 
cmdMoveRight .Height = intHeight 

'Right Alt Key 

cmdAlt2 . Font . Size = dblFontSize 
cmdAlt2.Top = intRow6Top 
cmdAlt2.Left = 5315 * IngPcnt 
cmdAlt2 .Width = 735 * IngPcnt 
cmdAlt 2 .Height = intHeight 

'Right Ctrl Key 

cmdCntrl2 .Font .Size = dblFontSize 
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cmdCntrl2 .Top = intRow6Top 
cmdCntrl2.Left = 6120 * IngPcnt 

cmdCntrl2 .Width = intRightBorder - cmdCntrl2 . Lef t 
cmdCntrl2 .Height = intHeight 

'Exit Keyboard 

cmdExitKeyboard. Font . Size = dblFontSize 
cmdExitKeyboard . Top = intRow7Top 
cmdExitKeyboard . Lef t = 60 * IngPcnt 
cmdExitKeyboard. Width = 6915 * IngPcnt 
cmdExitKeyboard . Height = intHeight 

End Sub 

Private Sub cmdAlt_Cl ick ( ) 

If cmdAlt.Tag = "OFF" Then 

cmdAlt.Tag = "ON" 

cmdAlt . Caption = "Alt On" 

cmdAlt2.Tag = "ON" 

cmdAlt2 . Caption = "Alt On" 
Else 

cmdAlt.Tag = "OFF" 
cmdAlt .Caption = "Alt Off" 
cmdAlt2.Tag = "OFF" 
cmdAlt2 .Caption = "Alt Off" 
End If 
End Sub 

Private Sub cmdAlt2_Click ( ) 

cmdAlt_Click 
End Sub 

Private Sub cmdBackspace_Click ( ) 
strKeys = "{BKSP}" 
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SendVKeys (strKeys) 
End Sub 

Private Sub cmdCntrl_Click ( ) 

If cmdCntrl .Tag = "OFF" Then 
cmdCntrl .Tag = "ON" 
cmdCntrl . Caption = "Ctrl On" 
cmdCntrl2 .Tag = "ON" 
cmdCnt r 12 . Caption = "Ctrl On" 
Else 

cmdCntrl .Tag = "OFF" 
cmdCntrl . Caption = "Ctrl Off" 
cmdCntrl2 .Tag = "OFF" 
cmdCntrl2 .Caption = "Ctrl Off" 
End If 
End Sub 

Private Sub cmdCntrl2_Click ( ) 

cmdCntrl_Click 
End Sub 

Private Sub cmdDelete_Click ( ) 
strKeys = " " 

strKeys = strKeys & "{DEL}" 
SendVKeys (strKeys) 
End Sub 

Private Sub cmdEnter_Click ( ) 
strKeys = " " 

strKeys = strKeys & "{ENTER}" 
SendVKeys (strKeys) 

End Sub 
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Private Sub cmdEscape_Click () 

strKeys = "{ESC}" 

SendVKeys (strKeys) 
End Sub 

Private Sub cmdExitKeyboard_Click ( ) 
End 

End Sub 

Private Sub cmdLef tShif t_Click ( ) 

If cmdLef tShift .Tag = "OFF" Then 

If cmdCapsLock.Tag = "OFF" Then 

Shift_Up 
Else 

Set_Caps_Lock 
Shift_Up 
End If 

Else 

Shif t_Down 
End If 
End Sub 

Private Sub cmdMoveLef t_Click ( ) 
strKeys = " " 

strKeys = strKeys & "{LEFT}" 
SendVKeys (strKeys) 

End Sub 

Private Sub cmdMoveRight_Click ( ) 
strKeys = " " 

strKeys = strKeys & "{RIGHT}" 
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SendVKeys (strKeys) 



End Sub 

Private Sub cmdRightShif t_Click ( ) 

cmdLeftShift_Click 
End Sub 

Private Sub cmdSpaceBar_Click ( ) 
strKeys = " " 

strKeys = strKeys & " " 
SendVKeys (strKeys) 

End Sub 

Private Sub cmdTab_Click ( ) 
strKeys = "" 

If cmdLef tShif t .Tag = "ON" Then 

strKeys = strKeys & "+" 
End If 

strKeys = strKeys & "{TAB}" 
SendVKeys (strKeys) 
End Sub 

Private Sub Form_Act ivate ( ) 
Dim dl& 

1 KeyboardWindow = Get ForegroundWindow 

dl& = SetWindowPos (hwnd, -1, 4905, 7965, 6975, 2475, &H1 
Or &H2) 

End Sub 

Private Sub Form_Got Focus ( ) 
If Me.WindowState <> 0 Then 
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Me .Windows tat e = 0 
'Me. Width = 7000 
End If 
End Sub 

Private Sub Form_Resize ( ) 
If Me . WindowState <> 0 Then 

Me . WindowState = 0 

Me. Width = 7000 
End If 
Key_Layout 1 
End Sub 



Private Sub cmdCapsLock_Click ( ) 

' Caps Lock Key 

If cmdCapsLock.Tag = "OFF" Then 

cmdCapsLock. Caption = "Caps On" 
cmdCapsLock.Tag = "ON" 
Caps_On 

Else 

cmdCapsLock. Caption = "Caps Off" 
cmdCapsLock.Tag = "OFF" 
Caps_0FF 
End If 
strKeys = " " 

strKeys = strKeys & "{CAPSLOCK}" 
SendVKeys (strKeys) 
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End Sub 



Private Sub Commandl_Click ( Index As Integer) 
strKeys = " " 

If cmdCapsLock.Tag = "ON" Then 

strKeys = strKeys & "{CAPSLOCK}" 
End If 

If cmdLeftShift .Tag = "ON" Then 

strKeys = strKeys & "+" 
End If 

If cmdAlt.Tag = "ON" Then 
strKeys = strKeys & "%" 
End If 

If cmdCntrl.Tag = "ON" Then 

strKeys = strKeys & 
End If 

strKeys = strKeys & Commandl ( Index) . Tag 
SendVKeys (strKeys) 

End Sub 

Private Sub Form_Load() 
Dim hSysMenu As Long 
Dim nCnt As Long 

'First, show the form 
Me . Show 

'Get handle to our form's system menu 
' (Restore, Maximize, Move, close etc.) 
hSysMenu = Get SystemMenu (Me . hwnd, False) 

If hSysMenu Then 

'Get System menu's menu count 
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nCnt = GetMenuItemCount (hSysMenu) 



If nCnt Then 

'Menu count is based on 0 (0, 1, 2, 3...) 

RemoveMenu hSysMenu , nCnt - 1 , _ 
MF_BYPOSITION Or MF_REMOVE 

RemoveMenu hSysMenu, nCnt - 2, _ 

MF_BYPOSITION Or MF_REMOVE 'Remove the seperator 
DrawMenuBar Me . hwnd 

'Force caption bar's refresh. Disabling X button 

Me. Caption = "GeniSus Keyboard" 
End If 
End If 

Shif t_Down 

Hook 

#If CurrentProcOnly = 1 Then 

Forml . Show 
#End If 

DeactivateClose 
End Sub 

Private Sub Form_Unload (Cancel As Integer) 

UnHook 
End Sub 

Public Sub DeactivateClose ( ) 
End Sub 
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An example of an accompanying dynamic link library, . dll 
application, through which external applications may access 
the keyboard application is: 

// vKeyHook.cpp : Defines the entry point for the DLL 

application . 

// 

#include <windows.h> 
#include <winuser . h> 

#pragma data_seg ( " . SHARDATA" ) 

static int hWndActive = 0 ; 

static int hWndSelf = 0 ; 

static HHOOK hHook = 0 ; 
#pragma data_seg() 

BOOL API ENTRY DllMain( HANDLE hModule, 

DWORD ul_reason_f or_call , 
LPVOID lpReserved 
) 

{ 

switch (ul_reason_for_call) 
{ 

case DLL_PROCESS_ATTACH: 
case DLL_THREAD_ATTACH : 
case DLL_THREAD_DETACH : 
case DLL_PROCESS_DETACH: 
break; 

} 

return TRUE; 

} 
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long CALLBACK CBTProc ( 

int nCode, // hook code 

WPARAM wParam, // current -process flag 

LPARAM lParam // message data 

) 
{ 

if (nCode == HCBT_ACTIVATE && 

( int ) wParam != hWndSelf) { 
hWndActive = (int) wParam; 

} 

return CallNextHookEx (hHook, nCode, wParam, lParam) ; 



void stdcall HookMsg(int hWnd) 

{ 

H INSTANCE hModule; 

hModule = GetModuleHandle ( "vKeyHook . dll " ) ; 

hHook = SetWindowsHookEx(WH_CBT, CBTProc, hModule, 0) ; 

hWndSelf = hWnd; 



void stdcall UnHookMsgO 

{ 

UnhookWindowsHookEx (hHook) ; 

} 

int stdcall GetActiveWnd ( ) 

{ 

return hWndActive ; 

These codes are preferably executed in conjunction with 
a Windows 98® operating system. These codes may be executed 
in any type of system, including, but not limited to, a web 
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based system, a computer network, or any personal computer, 
personal digital assistant or other device. 

As can clearly be seen in Figures 1 and 2, there are no 
minimizing, maximizing, or close options available for the 
user. Therefore, a user can input data by selecting keys 22 
on the keyboard 20 as necessary. 

A general description of the present invention as well 
as a preferred embodiment of the present invention has been 
set forth above. Those skilled in the art to which the 
present invention pertains will recognize and be able to 
practice additional variations in the methods and systems 
described which fall within the teachings of this invention. 
Accordingly, all such modifications and additions are deemed 
to be within the scope of the invention which is to be 
limited only by the claims appended hereto. 
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What is claimed is: 

1. 

A method of entering data on a touch screen display, the 
method comprising: 

invoking a computer program in which user input is sought; 
invoking an input area, including a keyboard incapable of 

user termination and having a plurality of keys on the 

display; and 

selecting keys on the keyboard to provide the desired input. 

2 . 

The method of entering data on a touch screen display of 
claim 1 wherein the input area is created by an executable 
code . 

3 . 

The method of entering data on a touch screen display of 
claim 2 wherein the executable code is compiled visual basic 
code . 

4 . 

The method of entering data on a touch screen display of 
claim 1 wherein the computer program invokes the input area. 

5 . 

The method of entering data on a touch screen display of 
claim 4 wherein the computer program accesses a dynamic link 
library file in order to invoke the input area. 

6 . 

The method of entering data on a touch screen display of 
claim 5 wherein the dynamic link library file is a C++ 
program . 

7 . 

The method of entering data on a touch screen display of 
claim 1 wherein the computer program is executing on a 
personal computer. 
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The method of entering data on a touch screen display of 
claim 1 wherein the computer program is executing on a pen- 
based computer . 

9 . 

The method of entering data on a touch screen display of 
claim 1 wherein the computer program is executing on a 
computer with a touch- screen display. 

10 . 

A computer readable medium containing executable 
instructions, which when executed in a processing system 
causes the system to perform the steps for creating an on- 
screen keyboard, the keyboard comprising: 

an input area on a display incapable of user termination, the 
input area being on a display of receiving touch- screen 
input, said input area including a pictorial 
representation of a keyboard. 

11 . 

The computer readable medium of claim 10 wherein the 
pictorial representation is an image map. 

12 . 

The computer readable medium of claim 10 wherein the 
input area has no task bar. 

13 . 

The computer readable medium of claim 10 wherein the 
input area has no minimize button. 

14 . 

The computer readable medium of claim 10 wherein the 
input area has no maximize button. 

15 . 

A medium through which user input may be obtained, the 
medium comprising: 

executable instructions, which when executed in a processing 
system causes the system to perform the steps creating 
an input area incapable of user termination, the input 
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area being on a display capable of receiving touch- 
screen input, the immutable input area containing a 
plurality of keys; and 
a dynamic link library through which external programming may 
selectively access the executable instructions and 
thereby create the immutable input area. 

16 . 

The computer medium of claim 15 wherein the input area 
contains a keyboard. 

17 . 

The computer medium of claim 15 wherein the processing 
system is a 32 bit processing system. 

18 . 

A computer system including a display capable of 
accepting touch-screen input comprising: 
a processing system; 

executable instructions which when executed in the processing 
system cause the processing system to generate an input 
area on the display, the input area being incapable of 
user termination; 

a dynamic link library which links a computer program to the 
executable instructions for use on the processing 
system. 

19 . 

The computer system of claim 18 wherein the input area 
contains a keyboard. 

20 . 

The computer system of claim 18 wherein the processing 
system is a 32 -bit processing system. 

21 . 

A method of ensuring a reliable computer input area is 
accessible to a user, the method comprising: 
accessing a computer including a touch- screen display; 
executing a computer program in which user input is sought; 



43 



invoking a computer -generated input area of unalterable size 

and shape on the display; and 
accepting input from a user based on the position selected by 

the user in the input area on the display. 

22 . 

The method of claim 21 wherein the computer is a pen- 
based computer . 

23 . 

The method of claim 21 wherein the input area includes a 
keyboard . 

24 . 

The method of claim 21 wherein invoking of the input 
area is performed through a dynamic link library. 
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ABSTRACT OF THE DISCLOSURE 

A method and medium for a computer readable input area. 
The input area is created by a computer program on a display 
capable of receiving touch-screen input. The computer on 
which the input area in used is at least a 32 -bit system. 
The input area may contain a keyboard which is an image map. 
External programming may selectively access the input area 
through a dynamic link library. The input area has no task 
bar and may not be minimized, maximized, or deleted. 
Therefore, the input area becomes an integral component and 
provides the user with a constant and reliable method of 
inputting information into the computer program. 
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IN THE UNITED STATES PATENT AND TRADEMARK OFFICE 
COMBINED DECLARATION AND POWER OF ATTORNEY 
FOR SOLE INVENTOR 



As the below named inventor, I hereby declare that: 

My residence, post office address and 
citizenship are as stated below next to my name. I believe I 
am the original, first and sole inventor, of the subject 
matter which is claimed and for which a patent is sought on 
the invention entitled as follows: METHOD AND MEDIUM FOR 
COMPUTER READABLE KEYBOARD DISPLAY INCAPABLE OF USER 
TERMINATION, the specification and drawings of which are 
attached hereto. 

I hereby state that I have reviewed and understand the 
contents of the above identified specification and drawings, 
including the claims, as amended by any amendment referred to 
above . 

I acknowledge the duty to disclose information which is 
material to patentability as defined in Title 37, Code Of 
Federal Regulations, Section 1.56. I further declare that no 
application for patent or inventor's certificate on this 
invention has been filed by me, my legal representative or 
assigns in any country foreign to the United States of 
America except as identified below: 

NONE. 

Applicant hereby appoints the attorneys of record 
listed under Customer No. 22885 at ZARLEY, McKEE, THOMTE , 
VOORHEES Sc SEASE, 801 Grand Avenue, Suite 3200, Des Moines, 
Iowa 50309-2721 (telephone number 515-288-3667 and fax number 
515-288-1338) , as my attorneys to prosecute this application 
and to transact all business in the Patent Office connected 
therewith. 

Please direct all correspondence to the attention of 
R. Scott Johnson, Zarley, McKee, Thomte, Voorhees & Sease, 
801 Grand Avenue, Suite 3200, Des Moines, Iowa, 50309-2721 
(telephone number 515-288-3667) . 

I hereby declare that all statements made herein are of 
my own knowledge are true and that all statements made on 
information and belief are believed to be true; and further 
that these statements were made with the knowledge that 
willful false statements and the like so made are punishable 
by fine or imprisonment, or both, under Section 1001 of Title 



18 of the United States Code, and that such willful false 
statements may jeopardize the validity of the application or 
any patent issued thereon. 
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Inventor's signature: 

Thomas J. Mann 

Date : 

Full name of inventor: Thomas J. Mann 

Residence: 330 N. 93 rd St. 

Omaha, Nebraska 

Post Office Address : 

Country of Citizenship: United States of America 
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